home *** CD-ROM | disk | FTP | other *** search
/ Software of the Month Club 1996 June / Software of the Month Club 1996 June.iso / pc / dos / biz / easybase / pack1.prg / NETOUT / DEMOAPP / PROC8.PRO < prev    next >
Unknown  |  1995-11-22  |  350 b 
open in: MacOS 8.1     |     Win98     |     DOS

view JSON data     |     view as text

This file was not able to be converted.
This format is not currently supported by dexvert.

ConfidenceProgramDetectionMatch TypeSupport
1% dexvert MSX Protracker Module (music/msxProtrackerModule) ext Unsupported
1% dexvert Show Partner Mastered Show (other/showPartnerMasteredShow) ext Unsupported
100% file data default
100% disktype Blank disk/medium default (weak)


hex view
+--------+-------------------------+-------------------------+--------+--------+
|00000000| 12 00 44 65 63 6c 61 72 | 65 20 56 61 72 69 61 62 |..Declar|e Variab|
|00000010| 6c 65 73 0d 0a 20 20 20 | 78 20 61 73 20 6e 75 6d |les..   |x as num|
|00000020| 62 65 72 0d 0a 65 6e 64 | 0d 0a 66 6f 72 20 77 6f |ber..end|..for wo|
|00000030| 72 6b 20 6e 65 77 20 72 | 65 63 6f 72 64 0d 0a 20 |rk new r|ecord.. |
|00000040| 20 20 66 6f 72 20 77 6f | 72 6b 20 61 6c 69 61 73 |  for wo|rk alias|
|00000050| 20 63 68 65 63 6b 69 74 | 20 77 69 74 68 20 54 79 | checkit| with Ty|
|00000060| 70 65 20 3d 20 69 6e 70 | 75 74 2e 74 79 70 65 0d |pe = inp|ut.type.|
|00000070| 0a 20 20 20 20 20 20 78 | 20 3d 20 78 20 2b 20 31 |.      x| = x + 1|
|00000080| 0d 0a 20 20 20 6e 65 78 | 74 0d 0a 20 20 20 69 66 |..   nex|t..   if|
|00000090| 20 78 20 3e 20 30 20 74 | 68 65 6e 0d 0a 20 20 20 | x > 0 t|hen..   |
|000000a0| 20 20 20 62 65 65 70 0d | 0a 20 20 20 20 20 20 64 |   beep.|.      d|
|000000b0| 69 73 70 6c 61 79 20 73 | 74 61 74 75 73 20 22 54 |isplay s|tatus "T|
|000000c0| 68 69 73 20 74 79 70 65 | 20 6a 75 73 74 20 65 6e |his type| just en|
|000000d0| 74 65 72 65 64 20 62 79 | 20 61 6e 6f 74 68 65 72 |tered by| another|
|000000e0| 20 74 65 72 6d 69 6e 61 | 6c 22 0d 0a 20 20 20 20 | termina|l"..    |
|000000f0| 20 20 64 65 6c 61 79 20 | 32 30 30 30 0d 0a 20 20 |  delay |2000..  |
|00000100| 20 20 20 20 72 65 63 61 | 6c 6c 20 69 6e 70 75 74 |    reca|ll input|
|00000110| 20 73 63 72 65 65 6e 0d | 0a 20 20 20 65 6e 64 20 | screen.|.   end |
|00000120| 69 66 0d 0a 20 20 20 63 | 6f 70 79 20 61 6c 6c 20 |if..   c|opy all |
|00000130| 66 72 6f 6d 20 69 6e 70 | 75 74 0d 0a 6e 65 78 74 |from inp|ut..next|
|00000140| 0d 0a 0d 0a 0d 0a 0d 0a | 04 00 4e 65 77 20 57 6f |........|..New Wo|
|00000150| 72 6b 20 54 79 70 65 20 | 20 20 20 20 20 20       |rk Type |        |
+--------+-------------------------+-------------------------+--------+--------+